home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / devnag.zip / DEV.STY < prev    next >
Text File  |  1991-05-10  |  4KB  |  105 lines
  1. %    DEV.STY  
  2. %    Style file for the use of Devanagari fonts with LaTeX.
  3. %
  4. %    Copyright (C) 1991  University of Groningen, The Netherlands
  5. %
  6. %    Author:    Frans J. Velthuis 
  7. %    Internet:  velthuis@rc.rug.nl
  8. %    Bitnet:    velthuis@hgrrug5
  9. %    Co-author: Dominik Wujastyk
  10. %
  11. %    This program is free software; you can redistribute it and/or modify
  12. %    it under the terms of the GNU General Public License as published by
  13. %    the Free Software Foundation; either version 1, or (at your option)
  14. %    any later version.
  15. %
  16. %    This program is distributed in the hope that it will be useful,
  17. %    but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. %    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19. %    GNU General Public License for more details.
  20. %
  21. %    You should have received a copy of the GNU General Public License
  22. %    along with this program; if not, write to the Free Software
  23. %    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  24. %
  25. \newcount\chnum
  26. \newdimen\itdim
  27. \newdimen\dnblskip
  28. \chnum=0
  29. \loop\catcode\chnum=11
  30. \ifnum\chnum<12\advance\chnum by1
  31. \repeat
  32. \chnum=14
  33. \loop\catcode\chnum=11
  34. \ifnum\chnum<31\advance\chnum by1
  35. \repeat
  36. \catcode127=11
  37. %
  38. \def\@gdnfont#1#2{\@ifundefined{#1}{\global\expandafter%
  39. \font\csname #1\endcsname=#2%
  40. \hyphenchar\csname #1\endcsname=-1}{}\csname #1\endcsname}
  41. %
  42. \def\eightdev{\@gdnfont{dnviii}{dvng8}}
  43. \def\ninedev{\@gdnfont{dnix}{dvng9}}
  44. \def\tendev{\@gdnfont{dnx}{dvng10}}
  45. \def\elevendev{\@gdnfont{dnxi}{dvng10 scaled\magstephalf}}
  46. \def\twelvedev{\@gdnfont{dnxii}{dvng10 scaled\magstep1}}
  47. \def\fourteendev{\@gdnfont{dnxiv}{dvng10 scaled\magstep2}}
  48. \def\seventeendev{\@gdnfont{dnxvii}{dvng10 scaled\magstep3}}
  49. \def\subscr#1{\/\itdim=\lastkern
  50. \unkern\kern-\itdim \lower\dp0 \hbox to\itdim{#1\hfil}}
  51. %
  52. % For the usage of the following \@addfontinfo lines, see LFONTS.TEX
  53. %
  54. \def\dn{\protect\pdn\baselineskip=\dnblskip\tolerance=10000\pretolerance=10000}
  55. %
  56. \@addfontinfo\@vpt{\def\pdn{\@prtct\@warning{No Devanagari available at this
  57.  font size. Substituting eight point font.}\@prtct\eightdev}\dnblskip=13pt}
  58. \@addfontinfo\@vipt{\def\pdn{\@prtct\@warning{No Devanagari available at this
  59.  font size. Substituting eight point font.}\@prtct\eightdev}\dnblskip=13pt}
  60. \@addfontinfo\@viipt{\def\pdn{\@prtct\@warning{No Devanagari available at this
  61.  font size. Substituting eight point font.}\@prtct\eightdev}\dnblskip=13pt}
  62. \@addfontinfo\@viiipt{\def\pdn{\eightdev}\dnblskip=13pt}
  63. \@addfontinfo\@ixpt{\def\pdn{\ninedev}\dnblskip=14pt}
  64. \@addfontinfo\@xpt{\def\pdn{\tendev}\dnblskip=16pt}
  65. \@addfontinfo\@xipt{\def\pdn{\elevendev}\dnblskip=17pt}
  66. \@addfontinfo\@xiipt{\def\pdn{\twelvedev}\dnblskip=19pt}
  67. \@addfontinfo\@xivpt{\def\pdn{\fourteendev}\dnblskip=23pt}
  68. \@addfontinfo\@xviipt{\def\pdn{\seventeendev}\dnblskip=28pt}
  69. \@addfontinfo\@xxpt{\def\pdn{\@prtct\@warning{No Devanagari available at this
  70.  font size. Substituting seventeen point font.}\@prtct\seventeendev}
  71. \dnblskip=28pt}
  72. \@addfontinfo\@xxvpt{\def\pdn{\@prtct\@warning{No Devanagari available at this
  73.  font size. Substituting seventeen point font.}\@prtct\seventeendev}
  74. \dnblskip=28pt}
  75. %
  76. \def\0{\llap{\char13}}
  77. \def\1{\llap{\char32}}
  78. \def\2{\llap{\char92}}
  79. \def\3#1w{{\char"#1}}
  80. \def\4{\llap{\char123}}
  81. \def\5{\llap{\char125}}
  82. \def\6#1{\setbox0=\hbox{#1}#1\subscr{\char126}}
  83. \def\7#1{\setbox0=\hbox{#1}#1\subscr{\char0}}
  84. \def\8#1{\setbox0=\hbox{#1}#1\subscr{\char1}}
  85. \def\9#1{\setbox0=\hbox{#1}#1\subscr{\char2}}
  86. \def\qa#1#2{\setbox0=\hbox{#1}#1\subscr{\char253\kern1.5ex\lower1.25ex
  87. \hbox{\char#2}\kern-1.5ex}}
  88. \def\qb#1{\setbox0=\hbox{#1}#1\subscr{\char253}}
  89. \def\qq#1{\setbox0=\hbox{#1}#1\subscr{\char94}}
  90. \def\qx#1{\setbox0=\hbox{#1}#1\subscr{\char14}}
  91. \def\qy#1{\setbox0=\hbox{#1}#1\subscr{\char31}}
  92. \def\qz#1{\setbox0=\hbox{#1}#1\subscr{\char124}}
  93. \def\qva{\kern0.5ex\2\kern-0.5ex}
  94. \def\qvb{\kern1ex\0\kern-1ex}
  95. \def\qvc{\kern1ex\rdt\kern-1ex}
  96. \def\?{\llap{\char3}}
  97. \def\<{\llap{\char4}}
  98. \def\rs{\rm\thinspace}
  99. \let\re=\thinspace
  100. \def\rdt{\llap{\char19}}
  101. \def\dnnum{\let\nstyle=d}
  102. \def\cmnum{\let\nstyle=r}
  103. \cmnum
  104. \def\rn#1{\if\nstyle r{\rm #1}\else#1\fi}
  105.